home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 86 / 64er_Magazin_Sonderheft_86_19xx_Markt__Technik_de_Side_A.d64 / autokauf ii (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  18.4 KB  |  520 lines
  1. 10 rem *******************
  2. 20 rem * kostenvergleich *
  3. 30 rem * fuer autos      *
  4. 60 rem * by d. berner    *
  5. 90 rem *******************
  6. 95 ifsa=0thensa=49152:load"inp/4",8,1
  7. 100 sa=49152:sb=sa+3:sc=sb+3:poke53280,14:poke53281,6:print"[154]"chr$(142)chr$(8)
  8. 110 u=20:dimpg(u),pz(u),pr(u),pt(u),pu(u),pl(u),pd(u),pf(u),p1(u),p2(u),p3(u)
  9. 120 dimul$(u),ud$(u),uf$(u),u1$(u),u2$(u),u3$(u),u4$(u),u5$(u)
  10. 130 dimp4(u),p5(u),p1$(u),p2$(u),p3$(u),p4$(u),p5$(u),pe(u),iz(u),hr(u),ty$(u)
  11. 140 dimtk$(u),p$(u),hu(u),vs(u),vh(u),vt(u),vv(u),vi(u),ve(u),tp(u),wk(u),wj(u)
  12. 150 dimtr$(u),wv(u),pr$(u),pt$(u),pu$(u),pl$(u),pd$(u),pf$(u),le(u),so(u),p(u)
  13. 160 dimkb(u),zm(u),mo(u),ge(u),az(u),ks(u),kr(u),ur$(u),ut$(u),uu$(u),k(u)
  14. 170 fori=1to20:ty$(i)="0":tk$(i)="0":p$(i)="0"
  15. 180 tr$(i)="0":p1$(i)="0":p2$(i)="0":p3$(i)="0":p4$(i)="0":p5$(i)="0"
  16. 190 pr$(i)="0":pt$(i)="0":pu$(i)="0":pl$(i)="0":pd$(i)="0":pf$(i)="0":next
  17. 200 p1$="0":p2$="0":p3$="0":p4$="0":p5$="0"
  18. 210 printchr$(147):fory=1to6:print:next
  19. 220 print"                  [206][207][183][183][183][207][183][183] [223]"
  20. 230 print"                 [206] [180]   [180]    [223]"
  21. 240 print"                [206]  [180][160][160][160][180][160][160]   [223]"
  22. 250 print"                [180]    [175] [180]      [223]"
  23. 260 print"                [180]      [180]       "
  24. 270 print"         [180] [206][183][183][205] [165]      [165]       "
  25. 280 print"        [161] [167]    [165][180]      [180][167][183][183][183][183][165] "
  26. 290 print"               [146]              "
  27. 300 print"           [223]  [146][169]          [223]  [146][169]"
  28. 310 fori=1to1000:next
  29. 320 printchr$(19):fory=1to4:print:next:print"     k o s t e n v e r g l e i c h"
  30. 330 fori=1to2000:next
  31. 340 fory=1to12:print:next:print"        preise und haltungskosten"
  32. 350 fori=1to2000:next
  33. 360 print:print:printchr$(18)"1"chr$(146)" dateneingabe"
  34. 370 print:printchr$(18)"2"chr$(146)" laden gespeicherter daten von diskette";
  35. 380 getm$:ifm$="1"then410
  36. 390 ifm$="2"then2830
  37. 400 goto380
  38. 410 rem * angaben zu den einzelnen fahrzeugen*
  39. 420 n=n+1
  40. 430 printchr$(147)chr$(18)"fahrzeug nr."n;chr$(157)"                          ":i=n
  41. 440 print"typ: "ty$(i):printchr$(145)spc(3):syssa:inputty$(i)
  42. 450 print"kurzbezeichnung (max. 3 buchst.)  ";tk$(i)
  43. 460 printchr$(145)spc(32);:syssb:inputtk$(i)
  44. 470 print:print"leistung(kw) "le(i):printchr$(145)spc(12):syssc:inputle(i)
  45. 480 printchr$(145)spc(19)"hubraum[160](ccm) "hu(i):printchr$(145)spc(32);
  46. 490 syssc:inputhu(i)
  47. 500 print:print"grundpreis "pg(i):printchr$(145)spc(10):syssc:inputpg(i)
  48. 510 print:print"ueberfuehrung + zulassung "pz(i)
  49. 520 printchr$(145)spc(25):syssc:inputpz(i)
  50. 530 print:printchr$(18)"              e x t r a s :             ";
  51. 540 printchr$(18)"setzen sie statt des preises '*' ein,   ";
  52. 550 printchr$(18)"wenn der posten schon im grundpreis ent-";
  53. 560 printchr$(18)"halten ist, bzw. '0', wenn das extra    ";
  54. 570 printchr$(18)"nicht gewuenscht wird oder bei diesem   ";
  55. 580 printchr$(18)"fahrzeug nicht erhaeltlich ist!         "
  56. 590 print"autoradio         "pr$(i)
  57. 600 printchr$(145)spc(16):syssa:inputex$:gosub1390:pr(i)=ex:pr$(i)=ex$
  58. 610 print:print"4 tueren          "pt$(i)
  59. 620 printchr$(145)spc(16):syssa:inputex$:gosub1390:pt(i)=ex:pt$(i)=ex$
  60. 630 print:print"unterboden- u.hohlraumschutz  "pu$(i)
  61. 640 printchr$(145)spc(28):syssa:inputex$:gosub1390:pu(i)=ex:pu$(i)=ex$
  62. 650 print:print"servolenkung      "pl$(i)
  63. 660 printchr$(145)spc(16):syssa:inputex$:gosub1390:pl(i)=ex:pl$(i)=ex$
  64. 670 print:print"schiebedach       "pd$(i)
  65. 680 printchr$(145)spc(16):syssa:inputex$:gosub1390:pd(i)=ex:pd$(i)=ex$
  66. 690 print:print"sonderlackierung  "pf$(i)
  67. 700 printchr$(145)spc(16):syssa:inputex$:gosub1390:pf(i)=ex:pf$(i)=ex$
  68. 710 print:print:print"weitere extras: (max.5)":print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  69. 720 print"(hoechstens 9 buchstaben)"
  70. 730 ifp1$<>"0"then760
  71. 740 gosub1440:ife$="n"then980
  72. 750 syssa:inputp1$:iflen(p1$)>9thenp1$=left$(p1$,9)
  73. 760 print:printp1$,,"  "p1$(i):printchr$(145),,;
  74. 770 syssa:inputex$:gosub1390:p1(i)=ex:p1$(i)=ex$
  75. 780 ifp2$<>"0"then810
  76. 790 gosub1440:ife$="n"then980
  77. 800 syssa:inputp2$:iflen(p2$)>9thenp2$=left$(p2$,9)
  78. 810 print:printp2$,,"  "p2$(i):printchr$(145),,;
  79. 820 syssa:inputex$:gosub1390:p2(i)=ex:p2$(i)=ex$
  80. 830 ifp3$<>"0"then860
  81. 840 gosub1440:ife$="n"then980
  82. 850 syssa:inputp3$:iflen(p3$)>9thenp3$=left$(p3$,9)
  83. 860 print:printp3$,,"  "p3$(i):printchr$(145),,;
  84. 870 syssa:inputex$:gosub1390:p3(i)=ex:p3$(i)=ex$
  85. 880 ifp4$<>"0"then910
  86. 890 gosub1440:ife$="n"then980
  87. 900 syssa:inputp4$:iflen(p4$)>9thenp4$=left$(p4$,9)
  88. 910 print:printp4$,,"  "p4$(i):printchr$(145),,;
  89. 920 syssa:inputex$:gosub1390:p4(i)=ex:p4$(i)=ex$
  90. 930 ifp5$<>"0"then960
  91. 940 gosub1440:ife$="n"then980
  92. 950 syssa:inputp5$:iflen(p5$)>9thenp5$=left$(p5$,9)
  93. 960 print:printp5$,,"  "p5$(i):printchr$(145),,;
  94. 970 syssa:inputex$:gosub1390:p5(i)=ex:p5$(i)=ex$
  95. 980 print:print:print"inzahlungnahme des alten wagens fuer"
  96. 990 print"wieviel dm "iz(i):printchr$(145)spc(10):syssc:inputiz(i)
  97. 1000 print:print"haendlerrabatt in % "hr(i):printchr$(145)spc(19):syssc:inputhr(i)
  98. 1010 pe(i)=pg(i)+pz(i)+pr(i)+pt(i)+pu(i)+pl(i)+pd(i)+pf(i)
  99. 1020 pe(i)=pe(i)+p1(i)+p2(i)+p3(i)+p4(i)+p5(i)-iz(i)
  100. 1030 pe(i)=int(pe(i)*(1-hr(i)/100)*100+.5)/100
  101. 1040 forj=1to40:print"[183]";:next:print"insgesamt",,pe(i)"dm":print:print
  102. 1050 gosub4400
  103. 1060 print:print:print"sollen daten fuer einen weiteren wagen  eingegeben werden? (j/n)"
  104. 1070 gete$:ife$="j"then420
  105. 1080 ife$="n"then1100
  106. 1090 goto1070
  107. 1100 poke53280,14:poke53281,6
  108. 1110 printchr$(147)chr$(18)chr$(154)"         z u r   a u s w a h l          "
  109. 1120 printchr$(18)"1"chr$(146)" dateneingabe fuer ein weiteres          fahrzeug"
  110. 1130 print:printchr$(18)"2"chr$(146)" korrektur: preisangaben
  111. 1140 [153]:[153][199](18);
  112. 1150 [153]"3"[199](146)" steuer und versicherung":[153]"  (eingabe bzw. korrektur)"
  113. 1160 [153]:[153][199](18)"4"[199](146)" werkstattkosten":[153]"  (eingabe bzw. korrektur)"
  114. 1170 [153]:[153][199](18)"5"[199](146)" betriebskosten":[153]"  (eingabe bzw. korrektur)"
  115. 1180 [153]:[153][199](18)"6"[199](146)" tabelle'anschaffungspreis'"
  116. 1190 [153]:[153][199](18)"7"[199](146)" tabelle 'kosten pro monat'
  117. 1200 print:printchr$(18)"8"chr$(146)" tabelle 'kosten pro kilometer'
  118. 1210 [153]:[153][199](18)"9"[199](146)" grafik"
  119. 1220 [153]:[153][199](18)"*"[199](146)" speichern der daten auf diskette";
  120. 1230 [161]e$:[139]e$[178]""[167]1230
  121. 1240 [139]e$[178]"*"[167]2640
  122. 1250 e[178][197](e$):[145] e [137]410,1270,1470,1660,1830,2240,2370,2550,3050
  123. 1260 [137]1230
  124. 1270 [153][199](147)[199](18)"   k o r r e k t u r  ( p r e i s eclose)   "
  125. 1280 [141]1810
  126. 1290 [153]:[153]"korrektur fuer nr.";:[158]sc:[133]i
  127. 1300 [153]:[153]:[153]"die korrektur erfolgt durch ueber-"
  128. 1310 [153]"schreiben, einfuegen oder anhaengen."
  129. 1320 [153]"nach der korrektur oder wenn nichts ver-";
  130. 1330 [153]"aendert werden soll, bitte "[199](18)"return"[199](146)
  131. 1340 [153]"druecken!"
  132. 1350 [153]:[153]:[153]"weiter?"
  133. 1360 [161]e$:[139]e$[178]""[167]1360
  134. 1370 [137]440
  135. 1380 [128]
  136. 1390 [143] preise fuer sonderzubehoer
  137. 1400 [139]ex$[178]"0"[167]ex[178]0:[142]
  138. 1410 [139]ex$[178]"*"[167]ex[178]0:[142]
  139. 1420 ex[178][197](ex$):[139]ex[179][177]0[167][142]
  140. 1430 [153]"loadeingabe nicht korrekt!":[153]"bitte neueingabe!";:[158]sa:[133]ex$:[137]1400
  141. 1440 [153]:[153]"wird die eingabe weiterer extras        gewuenscht?"
  142. 1450 [161]e$:[139]e$[178]"j"[176]e$[178]"n"[167][142]
  143. 1460 [137]1450
  144. 1470 [153][199](147):[143] *steuer u.versicherung*
  145. 1480 [141]1810
  146. 1490 [153]:[153]:[153]"steuer- und versicherungsangaben fuer"
  147. 1500 [153]"fahrzeug nr.";:[158]sc:[133]i
  148. 1510 [153][199](147)[199](18)"        steuer und versicherung         "
  149. 1520 [153]"fuer "ty$(i)
  150. 1530 [153]:[153][199](144)"kraftfahrzeugsteuer/jahr"[199](154):[153]" "vs(i)
  151. 1540 [153][199](145);:[158]sc:[133]vs(i)
  152. 1550 [153]:[153][199](144)"haftpflichtversicherung/jahr"[199](154):[153]" "vh(i)
  153. 1560 [153][199](145);:[158]sc:[133]vh(i)
  154. 1570 [153]:[153][199](144)"teilkaskoversicherung/jahr"[199](154):[153]" "vt(i)
  155. 1580 [153][199](145);:[158]sc:[133]vt(i)
  156. 1590 [153][199](144)
  157. 1600 [153]"vollkaskoversicherung/jahr"[199](154):[153]" "vv(i):[153][199](145);
  158. 1610 [158]sc:[133]vv(i)
  159. 1620 [153][199](144)
  160. 1630 [153][199](144)"insassenunfallversicherung"[199](154):[153]" "vi(i):[153][199](145);
  161. 1640 [158]sc:[133]vi(i)
  162. 1650 [137]1100
  163. 1660 [141]1810:[153]:[153]"werkstattkosten fuer nr.";:[158]sc:[133]i
  164. 1670 [153][199](147)[199](18)"     w e r k s t a t t k o s t e n      "
  165. 1680 [153]"zu den werkstattkosten gehoeren u.a.:"
  166. 1690 [153]"oelwechsel, inspektionen, reifen- und   auspufferneuerung..."
  167. 1700 [153]"weil es kaum moeglich ist, die werkstatt";
  168. 1710 [153]"kosten der naechsten jahre exakt voraus-";
  169. 1720 [153]"zuberechnen, wird hier mit einer":[153]"pauschale gerechnet.":[153]
  170. 1730 [153][199](144)"fuer "ty$(i)
  171. 1740 [153]:[153][199](18)"1"[199](146);
  172. 1750 [153]" pauschale von 150 dm/monat (durch-      schnittswert stand 1992)":[153]
  173. 1760 [153][199](18)"2"[199](146)" andere pauschale"[199](154)
  174. 1770 [161]e$:[139]e$[178]"1"[167]wk(i)[178]150:wj(i)[178]wk(i)[172]12:[137]1100
  175. 1780 [139]e$[178]"2"[167][153]:[153]:[153]"wieviel dm "wk(i):[153][199](145)[166]10):[158]sc:[133]wk(i)
  176. 1790 [139]e$[178]"2"[167]wj(i)[178]wk(i)[172]12:[137]1100
  177. 1800 [137]1770
  178. 1810 [153][199](147):[153]"bisher wurden daten eingegeben fuer"
  179. 1820 [129]i[178]1[164]n:[153]:[153]i;ty$(i):[130]:[142]
  180. 1830 [141]1810
  181. 1840 [153]:[153]"betriebskosten fuer welches fahrzeug?":[158]sc:[133]i
  182. 1850 [153][199](147)[199](18)"      b e tr i e b s k o s t e n        "
  183. 1860 [153][199](144)"fuer "ty$(i):[153][199](154)
  184. 1870 [153]"der motor braucht":[153]
  185. 1880 [153]"    "[199](18)"n"[199](146)" normal    "[199](18)"s";
  186. 1890 [153][199](146)" super    "[199](18)"d"[199](146)" diesel"
  187. 1900 [153]:[153]:[153]"  "[199](18)"a"[199](146)" bleifrei normal   ";
  188. 1910 [153][199](18)"b"[199](146)" bleifrei super"
  189. 1920 [161]tr$(i)
  190. 1930 [139]tr$(i)[178]"n"[167][153]:[153]"preis/1 liter normalbenzin "pn
  191. 1940 [139]tr$(i)[178]"n"[167][153][199](145)[166]26):[158]sc:[133]pn:[137]2040
  192. 1950 [139]tr$(i)[178]"s"[167][153]:[153]"preis/1 liter superbenzin "ps
  193. 1960 [139]tr$(i)[178]"s"[167][153][199](145)[166]26):[158]sc:[133]ps:[137]2040
  194. 1970 [139]tr$(i)[178]"d"[167][153]:[153]"preis/1 liter diesel "pd
  195. 1980 [139]tr$(i)[178]"d"[167][153][199](145)[166]20):[158]sc:[133]pd:[137]2040
  196. 1990 [139]tr$(i)[178]"a"[167][153]:[153]"preis/1 liter normal(bleifr.) "pa
  197. 2000 [139]tr$(i)[178]"a"[167][153][199](145)[166]29):[158]sc:[133]pa:[137]2040
  198. 2010 [139]tr$(i)[178]"b"[167][153]:[153]"preis/1 liter super (bleifr.) "pb
  199. 2020 [139]tr$(i)[178]"b"[167][153][199](145)[166]29):[158]sc:[133]pb:[137]2040
  200. 2030 [137]1920
  201. 2040 [153]:[153]:[153][199](144)"verbrauch: "[199](154)"beruecksichtigen sie dabei,"
  202. 2050 [153]"ob der wagen ueberwiegend auf langstrek-";
  203. 2060 [153]"ken oder im stadtverkehr gefahren wird! "
  204. 2070 [153]"wieviel liter auf 100 km "ve(i)
  205. 2080 [153][199](145)[166]24):[158]sc:[133]ve(i)
  206. 2090 [153]:[153]:[153][199](144)"die kosten fuer nachgefuelltes oel"
  207. 2100 [153]"werden mit 1% der treibstoffkosten bei"
  208. 2110 [153]"ottomotoren und mit 2% bei dieselmotoren";
  209. 2120 [153]"beruecksichtigt."[199](154):[153]:[153]
  210. 2130 [141]2210
  211. 2140 [153][199](147)[199](18)"            s o n s t i g e s           "
  212. 2150 [153]"falls gewuenscht, koennen sie hier"
  213. 2160 [153]"kosten fuer wagenpflege, garagenmiete...";
  214. 2170 [153]"beruecksichtigen.":[153]
  215. 2180 [153]"summe pro jahr "so(i)
  216. 2190 [153][199](145)[166]14):[158]sc:[133]so(i)
  217. 2200 [137]1100
  218. 2210 [153]"weiter?    (beliebige taste!)";
  219. 2220 [161]e$:[139]e$[178]""[167]2220
  220. 2230 [142]
  221. 2240 [143] * t a b e l l e n *
  222. 2250 [153][199](147)[199](18)"  a n s c h a f f u n g s k o s t e n   "
  223. 2260 [129]i[178]1[164]n:[153]ty$(i);
  224. 2270 [129]j[178]1[164]25[171][195](ty$(i)):[153]".";:[130]:px[178]pe(i):[139]kr(i)[178]1[167]px[178]ks(i)
  225. 2280 [153][181](px)"dm"
  226. 2290 [139]n[179]10[167][153]
  227. 2300 [130]i:[141]2210
  228. 2310 [137]1100
  229. 2320 [153][199](147):[129]y[178]1[164]6:[153]:[130]:[153]"durchschnittliche fahrstrecke pro jahr:"
  230. 2330 [153]:[158]sc:[133]s
  231. 2340 [153]:[153]:[153]
  232. 2350 [153]"nach wieviel jahren wollen sie":[153]"wieder verkaufen";
  233. 2355 [158]sc:[133]zj
  234. 2360 [142]
  235. 2370 [141]2320:[153][199](147)[199](18)"   kosten pro monat bei"s;
  236. 2380 [153][199](157)" km/jahr   "
  237. 2390 [129]i[178]1[164]n:[153]ty$(i);
  238. 2400 [129]j[178]1[164]28[171][195](ty$(i)):[153]".";:[130]
  239. 2410 [141]2450:[153][181](p(i)[173]12)"dm"
  240. 2420 [139]n[179]10[167][153]
  241. 2430 [130]i:[141]2210
  242. 2440 [137]1100
  243. 2450 [143] * kosten pro jahr *
  244. 2460 px[178]pe(i):[139]kr(i)[178]1[167]px[178]ks(i)
  245. 2470 p(i)[178]px[173]zj[170]vs(i)[170]vh(i)[170]vt(i)[170]vv(i)[170]vi(i)[170]wj(i)[170]so(i)
  246. 2480 [139]tr$(i)[178]"n"[167]tp[178]pn:oe[178]1.01
  247. 2490 [139]tr$(i)[178]"s"[167]tp[178]ps:oe[178]1.01
  248. 2500 [139]tr$(i)[178]"d"[167]tp[178]pd:oe[178]1.02
  249. 2510 [139]tr$(i)[178]"a"[167]tp[178]pa:oe[178]1.01
  250. 2520 [139]tr$(i)[178]"b"[167]tp[178]pb:oe[178]1.01
  251. 2530 p(i)[178]p(i)[170]s[173]100[172]ve(i)[172]tp[172]oe
  252. 2540 [142]
  253. 2550 [141]2320:[153][199](147)[199](18)" kosten pro kilometer bei"s;
  254. 2560 [153][199](157)" km/jahr "
  255. 2570 [129]i[178]1[164]n:[153]ty$(i);
  256. 2580 [129]j[178]1[164]30[171][195](ty$(i)):[153]".";:[130]:[141]2450
  257. 2590 kp[178][181](p(i)[173]s[172]100[170].5)[173]100
  258. 2600 kp$[178][196](kp):[139]kp[179]1[175][195](kp$)[179]4[167]kp$[178]kp$[170]"0"
  259. 2610 [139]kp[179]1[167]kp$[178]"0"[170][201](kp$,3)
  260. 2620 [153]kp$" dm":[139]n[179]10[167][153]
  261. 2630 [130]i:[141]2210:[137]1100
  262. 2640 [143] * speichern auf diskette *
  263. 2650 [153]:[159]1,8,15,"s:autovergl.":[160]1
  264. 2660 [159]1,8,8,"autovergl.,s,w"
  265. 2670 [152]1,n:[152]1,pn:[152]1,ps:[152]1,pd:[152]1,pa:[152]1,pb
  266. 2680 [152]1,p1$:[152]1,p2$:[152]1,p3$:[152]1,p4$:[152]1,p5$
  267. 2690 [129]i[178]1[164]n
  268. 2700 [152]1,ty$(i):[152]1,tk$(i):[152]1,le(i):[152]1,hu(i):[152]1,so(i)
  269. 2710 [152]1,pg(i):[152]1,pz(i):[152]1,pr(i):[152]1,pt(i):[152]1,pu(i):[152]1,pl(i)
  270. 2720 [152]1,pd(i):[152]1,pf(i):[152]1,p1(i):[152]1,p2(i):[152]1,p3(i)
  271. 2730 [152]1,p4(i):[152]1,p5(i)
  272. 2740 [152]1,p1$(i):[152]1,p2$(i):[152]1,p3$(i):[152]1,p4$(i):[152]1,p5$(i)
  273. 2750 [152]1,pe(i):[152]1,iz(i):[152]1,hr(i)
  274. 2760 [152]1,vs(i):[152]1,vh(i):[152]1,vt(i):[152]1,vv(i):[152]1,vi(i)
  275. 2770 [152]1,ve(i):[152]1,tp(i):[152]1,wk(i):[152]1,wj(i):[152]1,tr$(i)
  276. 2780 [152]1,pd$(i):[152]1,pt$(i):[152]1,pu$(i):[152]1,pl$(i):[152]1,pr$(i)
  277. 2790 [152]1,kb(i):[152]1,zm(i):[152]1,mo(i):[152]1,ge(i):[152]1,az(i):[152]1,ks(i):[152]1,kr(i)
  278. 2800 [152]1,pf$(i):[130]
  279. 2810 [160]1
  280. 2820 [137]1100
  281. 2830 [143] * laden von diskette *
  282. 2840 [159]1,8,8,"autovergl.,s,r"
  283. 2850 [132]1,n:[132]1,pn:[132]1,ps:[132]1,pd:[132]1,pa:[132]1,pb
  284. 2860 [132]1,p1$:[132]1,p2$:[132]1,p3$:[132]1,p4$:[132]1,p5$
  285. 2870 [129]i[178]1[164]n
  286. 2880 [132]1,ty$(i):[132]1,tk$(i):[132]1,le(i):[132]1,hu(i):[132]1,so(i)
  287. 2890 [132]1,pg(i):[132]1,pz(i):[132]1,pr(i):[132]1,pt(i):[132]1,pu(i):[132]1,pl(i)
  288. 2900 [132]1,pd(i):[132]1,pf(i):[132]1,p1(i):[132]1,p2(i):[132]1,p3(i)
  289. 2910 [132]1,p4(i):[132]1,p5(i)
  290. 2920 [132]1,p1$(i):[132]1,p2$(i):[132]1,p3$(i):[132]1,p4$(i):[132]1,p5$(i)
  291. 2930 [132]1,pe(i):[132]1,iz(i):[132]1,hr(i)
  292. 2940 [132]1,vs(i):[132]1,vh(i):[132]1,vt(i):[132]1,vv(i):[132]1,vi(i)
  293. 2950 [132]1,ve(i):[132]1,tp(i):[132]1,wk(i):[132]1,wj(i):[132]1,tr$(i)
  294. 2960 [132]1,pd$(i):[132]1,pt$(i):[132]1,pu$(i):[132]1,pl$(i):[132]1,pr$(i)
  295. 2970 [132]1,kb(i):[132]1,zm(i):[132]1,mo(i):[132]1,ge(i):[132]1,az(i):[132]1,ks(i):[132]1,kr(i)
  296. 2980 [132]1,pf$(i):[130]
  297. 2990 [139]pr$(i)[179][177]"*"[167]pr$(i)[178][196](pr(i))
  298. 3000 [160]1
  299. 3010 [137]1100
  300. 3020 [153]"bisher wurden daten eingegeben fuer"
  301. 3030 [129]i[178]1[164]n:[153]:[153]i;ty$(i):[130]
  302. 3040 [142]
  303. 3050 [143] * g r a f i k *
  304. 3060 [153][199](147)[199](18)" d i a g r a m m e  z u r  a u s w a h l"
  305. 3070 [153][199](18)"1"[199](146)" anschaffungspreise"
  306. 3080 [153]:[153][199](18)"2"[199](146)" monatliche kosten"
  307. 3090 [153]:[153][199](18)"3"[199](146)" kosten pro kilometer"
  308. 3100 [153]:[153][199](18)"4"[199](146)" hubraum und leistung"
  309. 3110 [153]:[153][199](18)"5"[199](146)" extras"
  310. 3120 [153]:[153][199](18)"6"[199](146)" druckerausgabe fuer ein fahrzeug"
  311. 3130 [153]:[153]:[153]:[153]"zur programmfortsetzung nach diagrammen"
  312. 3140 [153]"eine beliebige taste druecken!"
  313. 3150 [153]:[153]"wird eine hardcopy gewuenscht,"
  314. 3160 [153][199](18)"f1"[199](146)" druecken!"
  315. 3170 [161]e$:[139]e$[178]""[167]3170
  316. 3180 e[178][197](e$):[145]e[137]3200,3350,3430,3510,3990,4790
  317. 3190 [137]3170
  318. 3200 [143] * grafik anschaffungskosten *
  319. 3210 gr[178]1:mo[178]1:[151]53280,0:[151]53281,0:[143] hintergr.farbe
  320. 3220 [153][199](147)[199](158)" a n s c h a f f u n g s k o s t e n":[153]:ms[178]0
  321. 3230 [129]i[178]1[164]n:[139]ks(i)[177]60000[167]ms[178]3:[137]3270
  322. 3240 [139]ks(i)[177]30000[167][139]ms[179]2[167]ms[178]2
  323. 3250 [139]ks(i)[177]15000[167][139]ms[179]1[167]ms[178]1
  324. 3260 [130]
  325. 3270 [129]i[178]1[164]20:[153][163]5)[199](5)"abs    then    then    then    then    then    then":[130]
  326. 3280 [129]i[178]1[164]38:[153]"fre";:[130]:[153]
  327. 3290 [139]ms[178]0[167][153][163]14)"5000     10000     15000":di[178]500
  328. 3300 [139]ms[178]1[167][153][163]13)"10000     20000     30000":di[178]1000
  329. 3310 [139]ms[178]2[167][153][163]13)"20000     40000     60000":di[178]2000
  330. 3320 [139]ms[178]3[167][153][163]13)"30000     60000     90000":di[178]3000
  331. 3330 [129]i[178]1[164]n:k(i)[178]ks(i):[130]
  332. 3340 [137]3800
  333. 3350 [143] * grafik kosten pro monat *
  334. 3360 [141]2320:gr[178]1:mo[178]1:[151]53280,7:[151]53281,7:[143] hintergr.farbe
  335. 3370 [153][199](147)[199](31)"   k o s t e n   p r o   m o n a t":[153]:ms[178]0
  336. 3380 [129]i[178]1[164]20:[153][163]5)[199](144)"abs    then    then    then    then    then    then":[130]
  337. 3390 [129]i[178]1[164]38:[153]"fre";:[130]:[153]
  338. 3400 [129]i[178]1[164]n:[141]2450:k(i)[178][181](p(i)[173]12):[130]
  339. 3410 [153][163]14)" 300      600       900":di[178]30
  340. 3420 [137]3800
  341. 3430 [143] * grafik kosten pro kilometer *
  342. 3440 [141]2320:gr[178]1:mo[178]1:[151]53280,14:[151]53281,14:[143] hintergr.farbe
  343. 3450 [153][199](147)[199](31)" k o s t e n   p r o   k i l o m e t e r":ms[178]0
  344. 3460 [129]i[178]1[164]20:[153][163]5)[199](144)"abs    then    then    then    then    then    then":[130]
  345. 3470 [129]i[178]1[164]38:[153]"fre";:[130]:[153]
  346. 3480 [129]i[178]1[164]n:[141]2450:k(i)[178][181](p(i)[173]s[172]100):[130]
  347. 3490 [153][163]14)"0.30      0.60      0.90";:di[178]3
  348. 3500 [137]3800
  349. 3510 [143] * grafik hubraum und leistung *
  350. 3520 gr[178]1:[151]53280,0:[151]53281,0:[143] hintergrundfarbe
  351. 3530 [153][199](147)[199](5):[153]:[153]:[129]i[178]1[164]n:[153]i;tk$(i):[130]:[153][199](19):le[178]0
  352. 3540 [129]i[178]1[164]n:[139]le(i)[177]100[167]le[178]1:[137]3560
  353. 3550 [130]:hu[178]0
  354. 3560 [129]i[178]1[164]n:[139]hu(i)[177]4000[167]hu[178]2:[137]3590
  355. 3570 [139]hu(i)[177]2000[167]hu[178]1
  356. 3580 [130]
  357. 3590 [139]hu[178]2[167]h1$[178]"6000":h2$[178]"4500":h3$[178]"3000":h4$[178]"1500":dh[178]300
  358. 3600 [139]hu[178]1[167]h1$[178]"4000":h2$[178]"3000":h3$[178]"2000":h4$[178]"1000":dh[178]200
  359. 3610 [139]hu[178]0[167]h1$[178]"2000":h2$[178]"1500":h3$[178]"1000":h4$[178]" 500":dh[178]100
  360. 3620 [139]le[178]1[167]l1$[178]"200":l2$[178]"150":l3$[178]"100":l4$[178]" 50":dl[178]10
  361. 3630 [139]le[178]0[167]l1$[178]"100":l2$[178]" 75":l3$[178]" 50":l4$[178]" 25":dl[178]5
  362. 3640 [153][199](19)"     leistung ("[199](28)"(NULL)"[199](154)")             hubraum((NULL))";
  363. 3650 [153]"        in kw                    in ccm"
  364. 3660 [153][163]9)l1$"sqr....................(NULL)"h1$:x[178]4:[141]3700
  365. 3670 [153][163]9)l2$"sqr....................(NULL)"h2$:[141]3700
  366. 3680 [153][163]9)l3$"sqr....................(NULL)"h3$:[141]3700
  367. 3690 [153][163]9)l4$"sqr....................(NULL)"h4$:x[178]5:[141]3700:[137]3710
  368. 3700 [129]i[178]1[164]x:[153][163]12)"then    .    .    .     fn":[130]:[142]
  369. 3710 [153][163]12)"fre1frefrefre5frefrefre10frefrefre15frefrefre20fre"
  370. 3720 [129]i[178]1[164]n:lx[178][181](le(i)[173]dl[170].5):hx[178][181](hu(i)[173]dh[170].5)
  371. 3730 [151]1956[170]i[171]lx[172]40,81:[151]56228[170]i[171]lx[172]40,2
  372. 3740 [151]1956[170]i[171]hx[172]40,87:[151]56228[170]i[171]hx[172]40,7
  373. 3750 [139]hx[178]lx[167][151]1956[170]i[171]hx[172]40,42
  374. 3760 [130]
  375. 3770 [161]e$:[139]e$[178]""[167]3770
  376. 3780 [139][198](e$)[178]133[167][141]4660
  377. 3790 [137]1100
  378. 3800 [143] * balkengrafik *
  379. 3810 [153][199](19):[153]:[139]n[179]6[167][129]y[178]1[164]5:[153]:[130]
  380. 3820 [129]i[178]1[164]n:[153]tk$(i):[139]n[179]11[167][153]
  381. 3830 [130]i
  382. 3840 [153][199](19):[153]:[139]n[179]6[167][129]y[178]1[164]5:[153]:[130]
  383. 3850 [129]i[178]1[164]n:[153][166]6)
  384. 3860 k1[178][181](k(i)[173]di):k2[178][181]((k(i)[171]k1[172]di)[173]di[172]6)
  385. 3861 [139]k1[177]32[167]k1[178]32
  386. 3870 [139]k1[177][178]1[167][129]j[178]1[164]k1:[153][199](28)[199](18)" ";:[130]
  387. 3871 [139]k1[178]32[167][153]"cmd>";
  388. 3880 [139]k2[178]0[167][153]
  389. 3890 [139]k2[178]1[167][153][199](146)[199](165)
  390. 3900 [139]k2[178]2[167][153][199](146)[199](181)
  391. 3910 [139]k2[178]3[167][153][199](146)[199](161)
  392. 3920 [139]k2[178]4[167][153][199](182)
  393. 3930 [139]k2[178]5[167][153][199](167)
  394. 3940 [139]n[179]11[167][153]
  395. 3950 [130]i
  396. 3960 [161]e$:[139]e$[178]""[167]3960
  397. 3970 [139][198](e$)[178]133[167][141]4660
  398. 3980 mo[178]0:[137]1100
  399. 3990 [143] * e x t r a s *
  400. 4000 [153][199](147)[199](144)"*-serienm. a-aufpreis 0-nicht vorhanden "
  401. 4010 [139]n[179]10[167]as$[178]"  ":as[178]3:[137]4040
  402. 4020 [139]n[177]15[167]as$[178]"":as[178]1:[137]4040
  403. 4030 as$[178]" ":as[178]2
  404. 4040 [129]j[178]1[164]3
  405. 4050 tb[178]11:[129]i[178]1[164]n
  406. 4060 [153][163]tb)[202](tk$(i),j,1);:tb[178]tb[170]as:[130]i:[153]:[130]j
  407. 4070 [129]i[178]1[164]40:[153]"fre";:[130]
  408. 4080 [129]i[178]1[164]n
  409. 4090 ur$(i)[178]pr$(i):[139]ur$(i)[179][177]"*"[175]ur$(i)[179][177]"0"[167]ur$(i)[178]"a"
  410. 4100 ut$(i)[178]pt$(i):[139]ut$(i)[179][177]"*"[175]ut$(i)[179][177]"0"[167]ut$(i)[178]"a"
  411. 4110 uu$(i)[178]pu$(i):[139]uu$(i)[179][177]"*"[175]uu$(i)[179][177]"0"[167]uu$(i)[178]"a"
  412. 4120 ul$(i)[178]pl$(i):[139]ul$(i)[179][177]"*"[175]ul$(i)[179][177]"0"[167]ul$(i)[178]"a"
  413. 4130 ud$(i)[178]pd$(i):[139]ud$(i)[179][177]"*"[175]ud$(i)[179][177]"0"[167]ud$(i)[178]"a"
  414. 4140 uf$(i)[178]pf$(i):[139]uf$(i)[179][177]"*"[175]uf$(i)[179][177]"0"[167]uf$(i)[178]"a"
  415. 4150 u1$(i)[178]p1$(i):[139]u1$(i)[179][177]"*"[175]u1$(i)[179][177]"0"[167]u1$(i)[178]"a"
  416. 4160 u2$(i)[178]p2$(i):[139]u2$(i)[179][177]"*"[175]u2$(i)[179][177]"0"[167]u2$(i)[178]"a"
  417. 4170 u3$(i)[178]p3$(i):[139]u3$(i)[179][177]"*"[175]u3$(i)[179][177]"0"[167]u3$(i)[178]"a"
  418. 4180 u4$(i)[178]p4$(i):[139]u4$(i)[179][177]"*"[175]u4$(i)[179][177]"0"[167]u4$(i)[178]"a"
  419. 4190 u5$(i)[178]p5$(i):[139]u5$(i)[179][177]"*"[175]u5$(i)[179][177]"0"[167]u5$(i)[178]"a"
  420. 4200 [130]
  421. 4210 [153]"autoradio  ";:[129]i[178]1[164]n:[153]ur$(i);as$;:[130]:[153]
  422. 4220 [153]"4 tueren   ";:[129]i[178]1[164]n:[153]ut$(i);as$;:[130]:[153]
  423. 4230 [153]"unterb.sch.";:[129]i[178]1[164]n:[153]uu$(i);as$;:[130]:[153]
  424. 4240 [153]"servolenkg ";:[129]i[178]1[164]n:[153]ul$(i);as$;:[130]:[153]
  425. 4250 [153]"schiebed.  ";:[129]i[178]1[164]n:[153]ud$(i);as$;:[130]:[153]
  426. 4260 [153]"sonderlack.";:[129]i[178]1[164]n:[153]ul$(i);as$;:[130]:[153]
  427. 4270 [139]p1$[179][177]"0"[167][153]p1$;:[129]i[178]1[164]11[171][195](p1$):[153]" ";:[130]
  428. 4280 [139]p1$[179][177]"0"[167][129]i[178]1[164]n:[153]u1$(i);as$:[130]:[153]
  429. 4290 [139]p2$[179][177]"0"[167][153]p2$;:[129]i[178]1[164]11[171][195](p2$):[153]" ";:[130]
  430. 4300 [139]p2$[179][177]"0"[167][129]i[178]1[164]n:[153]u2$(i);as$;:[130]:[153]
  431. 4310 [139]p3$[179][177]"0"[167][153]p3$;:[129]i[178]1[164]11[171][195](p3$):[153]" ";:[130]
  432. 4320 [139]p3$[179][177]"0"[167][129]i[178]1[164]n:[153]u3$(i);as$;:[130]:[153]
  433. 4330 [139]p4$[179][177]"0"[167][153]p4$;:[129]i[178]1[164]11[171][195](p4$):[153]" ";:[130]
  434. 4340 [139]p4$[179][177]"0"[167][129]i[178]1[164]n:[153]u4$(i);as$;:[130]:[153]
  435. 4350 [139]p5$[179][177]"0"[167][153]p5$;:[129]i[178]1[164]11[171][195](p5$):[153]" ";:[130]
  436. 4360 [139]p5$[179][177]"0"[167][129]i[178]1[164]n:[153]u5$(i);as$;:[130]:[153]
  437. 4370 [161]e$:[139]e$[178]""[167]4370
  438. 4380 [139][198](e$)[178]133[167][141]4660
  439. 4390 [137]1100
  440. 4400 [143] * finanzierung *
  441. 4410 [153]"soll zumindest ein teil des neuwagens   finanziert werden?"
  442. 4420 [161]e$:[139]e$[178]"n"[167]kr(i)[178]0:ks(i)[178]pe(i):[142]
  443. 4430 [139]e$[178]"j"[167]kr(i)[178]1:[137]4450
  444. 4440 [137]4420
  445. 4450 [153]:[153]"wird zusaetzlich zu dem in zahlung"
  446. 4460 [153]"genommenen auto noch eine anzahlung"
  447. 4470 [153]"geleistet?"
  448. 4480 [161]e$:[139]e$[178]"j"[167]4510
  449. 4490 [139]e$[178]"n"[167]kb(i)[178]pe(i):[137]4540
  450. 4500 [137]4480
  451. 4510 [153]"hoehe der anzahlung  ";az(i)
  452. 4520 [153][199](145)[166]20):[158]sc:[133]az(i)
  453. 4530 kb(i)[178]pe(i)[171]az(i)
  454. 4540 [153]:[153]"zinsen pro monat (%) ";zm(i)
  455. 4550 [153][199](145)[166]20):[158]sc:[133]zm(i)
  456. 4560 [153]:[153]"wieviele monatsraten ";mo(i)
  457. 4570 [153][199](145)[166]20):[158]sc:[133]mo(i)
  458. 4580 [153]:[153]"bearbeitungsgeb. (%) ";ge(i)
  459. 4590 [153][199](145)[166]20):[158]sc:[133]ge(i)
  460. 4600 ks(i)[178]((zm(i)[172]mo(i)[170]ge(i))[173]100[170]1)[172]kb(i)
  461. 4610 [153]:[153]:[153]"kreditsumme:"kb(i)"dm"
  462. 4620 [153]"sie zahlen :"[181](ks(i)[172]100[170].5)[173]100;
  463. 4630 [153]"dm"
  464. 4640 [153]"monatsrate :"[181](ks(i)[173]mo(i)[172]100[170].5)[173]100"dmcont":[153]
  465. 4650 [142]
  466. 4660 [143] * hardcopy *
  467. 4670 [139]gr[178]1[167]g1[178]8
  468. 4680 [139]gr[178]0[167]g1[178]15
  469. 4690 h1[178]1024:[159]4,4:[152]4
  470. 4700 [129]h2[178]0[164]24:h1$[178]"":[129]h3[178]0[164]39
  471. 4710 h4[178]0:h4[178][194](h1[170]h2[172]40[170]h3):[139]h4[177]128[167]h4[178]h4[171]128:h6[178]1:h1$[178]h1$[170][199](18)
  472. 4720 [139]h4[177]95[176]h4[179]32[167]h5[178]h4[170]64
  473. 4730 [139]h4[177]31[175]h4[179]64[167]h5[178]h4
  474. 4740 [139]h4[177]63[175]h4[179]96[167]h5[178]h4[170]32
  475. 4750 h2$[178][199](h5)
  476. 4760 h1$[178]h1$[170]h2$:[139]h6[178]1[167]h6[178]0:h1$[178]h1$[170][199](146)
  477. 4770 [130]:[152]4,[199](15)[199](16)"20"h1$[199](g1)
  478. 4780 [130]:[152]4:[160]4:gr[178]0:[142]
  479. 4790 [143] * druckerausgabe fuer ein fahrzeug *
  480. 4800 [153][199](147):[129]i[178]1[164]n:[153]i;ty$(i):[130]
  481. 4810 [153]:[153]"daten fuer fahrzeug nr.";:[158]sc:[133]i
  482. 4820 [159]4,4:[152]4
  483. 4830 [152]4,[199](14)i"  "ty$(i)[199](15)
  484. 4840 [152]4,"leistung (kw):          "le(i)
  485. 4850 [152]4,"hubraum (ccm):          "hu(i)
  486. 4860 [152]4,"grundpreis:             "pg(i):[152]4
  487. 4870 [152]4,"ueberfuehrung+zulassung:"pz(i)
  488. 4880 [152]4,"autoradio:               "pr$(i)
  489. 4890 [152]4,"4 tueren:                "pt$(i)
  490. 4900 [152]4,"unterboden- u.hohlr.sch.:"pu$(i)
  491. 4910 [152]4,"servolenkung:            "pl$(i)
  492. 4920 [152]4,"schiebedach:             "pd$(i)
  493. 4930 [152]4,"sonderlackierung:        "pf$(i)
  494. 4940 [139]p1$[179][177]"0"[167][152]4,p1$;[199](16)"25"p1$(i)
  495. 4950 [139]p2$[179][177]"0"[167][152]4,p2$,[199](16)"25"p2$(i)
  496. 4960 [139]p3$[179][177]"0"[167][152]4,p3$,[199](16)"25"p3$(i)
  497. 4970 [139]p4$[179][177]"0"[167][152]4,p4$,[199](16)"25"p4$(i)
  498. 4980 [139]p5$[179][177]"0"[167][152]4,p5$,[199](16)"25"p5$(i)
  499. 4990 [152]4,"inzahlungnahme:         "iz(i)
  500. 5000 [152]4,"haendlerrabatt:         "hr(i)
  501. 5010 [152]4,"gesamtpreis:           "pe(i)
  502. 5020 [139]kb(i)[178]0[167]5050
  503. 5030 [152]4:[139]az(i)[179][177]0[167][152]4,"anzahlung:              "az(i)
  504. 5040 [152]4,mo(i)"monatsraten ("zm(i)"cmd%) zu je"[181](ks(i)[173]mo(i)[172]100[170].5)[173]100"cmddm"
  505. 5050 [152]4:[152]4,"kraftfahrzeugsteuer/jahr:"vs(i)
  506. 5060 [152]4,"haftpflichtvers./jahr:   "vh(i)
  507. 5070 [139]vt(i)[179][177]0[167][152]4,"teilkaskoversicherung:   "vt(i)
  508. 5080 [139]vv(i)[179][177]0[167][152]4,"vollkaskoversicherung:   "vv(i)
  509. 5090 [139]vi(i)[179][177]0[167][152]4,"insassenunfallversich.:  "vi(i)
  510. 5100 [152]4:[152]4,"mittlerer verbrauch:"ve(i)"l/100 km";
  511. 5110 [139]tr$(i)[178]"n"[167][152]4,"(normalbenzin)"
  512. 5120 [139]tr$(i)[178]"s"[167][152]4,"(superbenzin)"
  513. 5130 [139]tr$(i)[178]"d"[167][152]4,"(diesel)"
  514. 5140 [139]tr$(i)[178]"a"[167][152]4,"(bleifrei normal)"
  515. 5150 [139]tr$(i)[178]"b"[167][152]4,"(bleifrei super)"
  516. 5160 [153]"druckerausgabe fuer einen weiteren wagen(j/n)"
  517. 5170 [161]e$:[139]e$[178]""[167]5170
  518. 5180 [160]4:[139]e$[178]"j"[167]4790
  519. 5190 [137]1100
  520.